Dim strKey
strKey = strKey & "<?xml version=""1.0"" ?>" & vbCrLf
strKey = strKey & "<License>" & vbCrLf
strKey = strKey & "<Version>2.0</Version>" & vbCrLf
strKey = strKey & "<Id>400012345</Id>" & vbCrLf
strKey = strKey & "<Name>name</Name>" & vbCrLf
strKey = strKey & "<Email>user@host.com</Email>" & vbCrLf
strKey = strKey & "<Company>company</Company>" & vbCrLf
strKey = strKey & "<Product>SmartFTP FTP Library</Product>" & vbCrLf
strKey = strKey & "<Features>" & vbCrLf
strKey = strKey & "<Feature>SFTP</Feature>" & vbCrLf
strKey = strKey & "</Features>" & vbCrLf
strKey = strKey & "<Users>1</Users>" & vbCrLf
strKey = strKey & "<Maintenance>2008-12-27</Maintenance>" & vbCrLf
strKey = strKey & "<Issue>2007-12-27</Issue>" & vbCrLf
strKey = strKey & "<Signature>xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</Signature>" & vbCrLf
strKey = strKey & "</License>" & vbCrLf

Dim obj
Set obj = CreateObject("sfFTPLib.Global")
WScript.Echo "Object created." & vbCrLf
WScript.Echo strKey

If obj.LoadLicenseKeyData(strKey) Then
    WScript.Echo "Success"
Else
    WScript.Echo "Failed"
End If